home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 90 / CD Actual 90.iso / Software3D / VirtualLight / VLight1.3win32.exe / Examples / Level2 / polyglass.vs < prev    next >
Encoding:
Text File  |  2002-10-07  |  1.4 KB  |  57 lines
  1. ReadArchive "statics.vib"
  2.  
  3. Declare Ground = Shader [ FunctionalSurface [
  4.   Color PlanarImageMapping(ImageFile("mastic.jpg", NORMALIZED), (u/18, 0, v/18), 0)
  5.   NormalModifier PlanarBumpMapping(ImageFile("masticb.tga", NORMALIZED), (u/18, 0, v/18), 2)
  6.   Kd 0.75
  7.   Ks 0.25
  8.   BlinnSpecularBRDF 8
  9.  ]
  10. ]
  11.  
  12. static rock_map = SpectrumOfColors(
  13.      [0.000, '0.894, 0.886, 0.886', 0.154, '0.745, 0.745, 0.753']
  14.      [0.154, '0.745, 0.745, 0.753', 0.308, '0.902, 0.902, 0.859']
  15.      [0.308, '0.902, 0.902, 0.859', 0.444, '0.729, 0.706, 0.694']
  16.      [0.444, '0.729, 0.706, 0.694', 0.615, '0.588, 0.592, 0.635']
  17.      [0.615, '0.588, 0.592, 0.635', 0.803, '0.608, 0.616, 0.659']
  18.      [0.803, '0.608, 0.616, 0.659', 1.001, '0.894, 0.886, 0.886'])
  19.  
  20. Declare HolderShader = Shader [ FunctionalSurface [
  21.   Color rock_map[scnoise(7*Po, 5)]
  22.   Kd 0.7
  23.   Ks(0.4, '1,1,1')
  24.   Kb 1.5
  25.   MetalAttribute 1.2
  26.   ReitzSpecularBRDF 10
  27.   Kr 0.12
  28.  ]
  29. ]
  30.  
  31. static toto = 0.1
  32.  
  33. Declare Polyglass = Shader [ FunctionalSurface [
  34.   Color '.753529, .472549, .753529'
  35.   Ka 0.025
  36.   Kd 0.0
  37.   Ks 0.25
  38.   Kt (0.985*|N . I|, 1.41, '1,1,1')
  39.   Kr toto
  40.   BlinnSpecularBRDF 8
  41.   Caustics 0.35
  42.   Iridescence(.2,.2,.2)
  43.  ]
  44. ]
  45.  
  46. Declare Glass = Shader [ FunctionalSurface [
  47.   Color '1,1,1'
  48.   Ka 0.05
  49.   Kd 0.015
  50.   Ks 0.2
  51.   Kt(0.985*|N . I|, 1.45, '1,1,1')
  52.   Kr 0.1
  53.   PhongSpecularBRDF 10
  54.   Caustics(0.35, InternalCaustics)
  55.   Dispersion(1.1, 12)
  56.  ]
  57. ]